Dim fso, opnFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set opnFile = fso.OpenTextFile("c:\test.txt", 2, True)
opnFile.Write "Witaj, wiecie!"
opnFile.Close
